home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
Cream of the Crop 20
/
Cream of the Crop 20 (Terry Blount) (1996).iso
/
os2
/
xdsn217.zip
/
DEF
/
platform.def
< prev
next >
Wrap
Text File
|
1996-03-25
|
929b
|
48 lines
(* Copyright (c) 1994,95 xTech Ltd, Russia. All Rights Reserved. *)
<*# IF NOT __GEN_X86__ THEN *>
<*+M2EXTENSIONS *>
DEFINITION MODULE [2] platform; (* Ned 15-Feb-94. *)
VAR
pl_unix -: BOOLEAN;
pl_vms -: BOOLEAN;
pl_msdos-: BOOLEAN;
pl_amiga-: BOOLEAN;
pl_fatfs-: BOOLEAN;
extSep -: CHAR;
pathSep-: CHAR;
pathBeg-: CHAR;
pathEnd-: CHAR;
drvSep -: CHAR;
lineSep-: ARRAY [0..7] OF CHAR;
textSep-: ARRAY [0..7] OF CHAR;
<*# ELSE *>
DEFINITION MODULE platform; (* Ned 15-Feb-94. *)
CONST
pl_unix = FALSE;
pl_vms = FALSE;
pl_msdos = TRUE;
pl_amiga = FALSE;
pl_fatfs = TRUE;
extSep = '.';
pathSep = '\';
pathBeg = '\';
pathEnd = '\';
lineSep = 15C + 12C;
textSep = 15C + 12C;
drvSep = ':';
<*# END *>
PROCEDURE IsPathDelim(c: CHAR): BOOLEAN;
END platform.